Attribute VB_Name = "mod_presentacion"
Option Explicit

Private Sub Main()
    
  
  'Carga y visualiza el Splash
  frm_Splash.Show
  
  ' Carga en memoria el formulario principal _
    pero no lo muestra
  Load frm_menu
  
  'Hasta que no se cumpla el tiempo no prosigue
  Do
    DoEvents
  Loop Until frm_Splash.Listo
  
  
  ' Visualiza el Form Principal y descarga el Splash
  frm_menu.Show
  
  Unload frm_Splash
  Set frm_Splash = Nothing

End Sub

